home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 01 New Uploads / N!.SDA / N!-BASIC (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.0 KB  |  33 lines
  1. 10 POKE55,.:POKE56,160:PRINT"[147]"
  2. 15 CLR:Z$=CHR$(.)
  3. 20 PRINT"ENTER INTEGER (0 TO 145)."
  4. 25 X=-1:INPUTX:IFX<.THENEND
  5. 30 IFX>145THEN20
  6. 35 PRINT"ONE MOMENT PLEASE...":TI$="000000"
  7. 40 IFX=.ORX=1THENX$="1":GOTO70
  8. 45 A$=CHR$(1):FORN=2TOX:W=N
  9. 50 IFN>99THENV=INT(N/10):W=N-10*V:U=INT(V/10):V=V-10*U:GOTO60
  10. 55 IFN>9THENV=INT(N/10):W=N-10*V
  11. 60 GOSUB100:NEXT
  12. 65 X$="":FORI=1TOLEN(A$):X$=X$+CHR$(ASC(MID$(A$,I))+48):NEXT
  13. 70 PRINT"[157]";X;"[157]! = ";X$:A$=TI$:PRINT"TIME = ";
  14. 75 PRINTLEFT$(A$,2);":";MID$(A$,3,2);":";RIGHT$(A$,2):A=FRE(.):PRINT:GOTO15
  15. 100 X$="":L=LEN(A$):IFW=.THENFORI=1TOL+2:X$=Z$+X$:NEXT:GOTO115
  16. 105 C=.:FORI=1TOL:A=ASC(RIGHT$(A$,I))*W+C
  17. 110 C=INT(A/10):A=A-10*C:X$=CHR$(A)+X$:NEXT:X$=Z$+CHR$(C)+X$
  18. 115 IFV=.THENX$=Z$+X$:GOTO145
  19. 120 T$=Z$:C=.:FORI=1TOL:A=ASC(RIGHT$(A$,I))*V+C
  20. 125 C=INT(A/10):A=A-10*C:T$=CHR$(A)+T$:NEXT:T$=CHR$(C)+T$
  21. 130 C=.:S$="":FORI=1TOL+2:A=C+ASC(RIGHT$(X$,I))+ASC(RIGHT$(T$,I))
  22. 135 C=.:IFA>9THENA=A-10:C=1
  23. 140 S$=CHR$(A)+S$:NEXT:X$=CHR$(C)+S$
  24. 145 IFU=.THEN175
  25. 150 T$=Z$+Z$:C=.:FORI=1TOL:A=ASC(RIGHT$(A$,I))*U+C
  26. 155 C=INT(A/10):A=A-10*C:T$=CHR$(A)+T$:NEXT:T$=CHR$(C)+T$
  27. 160 C=.:S$="":FORI=1TOL+3:A=C+ASC(RIGHT$(X$,I))+ASC(RIGHT$(T$,I))
  28. 165 C=.:IFA>9THENA=A-10:C=1
  29. 170 S$=CHR$(A)+S$:NEXT:X$=CHR$(C)+S$
  30. 175 I=.
  31. 180 I=I+1:IFMID$(X$,I,1)=Z$THEN180
  32. 185 A$=RIGHT$(X$,LEN(X$)+1-I):RETURN
  33.